home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / misc / kc1qfnts / ky1tnts.frm < prev    next >
Text File  |  1995-04-29  |  13KB  |  422 lines

  1. VERSION 2.00
  2. Begin Form KY1TNTS 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "KY1T-NTS Version 2.0"
  6.    ClientHeight    =   6915
  7.    ClientLeft      =   -15
  8.    ClientTop       =   270
  9.    ClientWidth     =   9600
  10.    Height          =   7320
  11.    Icon            =   KY1TNTS.FRX:0000
  12.    KeyPreview      =   -1  'True
  13.    Left            =   -75
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   12.197
  18.    ScaleMode       =   0  'User
  19.    ScaleWidth      =   16.933
  20.    Top             =   -75
  21.    Width           =   9720
  22.    Begin SSPanel Panel3D5 
  23.       BackColor       =   &H00C0C0C0&
  24.       BevelOuter      =   0  'None
  25.       BevelWidth      =   0
  26.       BorderWidth     =   0
  27.       Caption         =   "Begin Voicegram"
  28.       Font3D          =   0  'None
  29.       ForeColor       =   &H00000000&
  30.       Height          =   495
  31.       Left            =   4395
  32.       TabIndex        =   20
  33.       Top             =   5386
  34.       Width           =   1215
  35.    End
  36.    Begin PictureBox Picture7 
  37.       BackColor       =   &H00C0C0C0&
  38.       BorderStyle     =   0  'None
  39.       Height          =   630
  40.       Left            =   4725
  41.       Picture         =   KY1TNTS.FRX:0302
  42.       ScaleHeight     =   630
  43.       ScaleWidth      =   720
  44.       TabIndex        =   19
  45.       Top             =   4819
  46.       Width           =   720
  47.    End
  48.    Begin SSCommand Command3D5 
  49.       Caption         =   "Voicegram"
  50.       Font3D          =   0  'None
  51.       ForeColor       =   &H00000000&
  52.       Height          =   1005
  53.       Left            =   4365
  54.       Picture         =   KY1TNTS.FRX:0604
  55.       TabIndex        =   18
  56.       Top             =   3705
  57.       Width           =   1140
  58.    End
  59.    Begin Timer Timer1 
  60.       Interval        =   1000
  61.       Left            =   2175
  62.       Top             =   2145
  63.    End
  64.    Begin PictureBox Picture6 
  65.       BackColor       =   &H00C0C0C0&
  66.       BorderStyle     =   0  'None
  67.       Height          =   495
  68.       Left            =   6270
  69.       Picture         =   KY1TNTS.FRX:0906
  70.       ScaleHeight     =   495
  71.       ScaleWidth      =   1215
  72.       TabIndex        =   8
  73.       Top             =   2070
  74.       Width           =   1215
  75.    End
  76.    Begin PictureBox Picture5 
  77.       BackColor       =   &H00C0C0C0&
  78.       BorderStyle     =   0  'None
  79.       Height          =   495
  80.       Left            =   2790
  81.       Picture         =   KY1TNTS.FRX:0C08
  82.       ScaleHeight     =   495
  83.       ScaleWidth      =   615
  84.       TabIndex        =   9
  85.       Top             =   2070
  86.       Width           =   615
  87.    End
  88.    Begin PictureBox Picture4 
  89.       BackColor       =   &H00C0C0C0&
  90.       BorderStyle     =   0  'None
  91.       Height          =   495
  92.       Left            =   6420
  93.       Picture         =   KY1TNTS.FRX:0F0A
  94.       ScaleHeight     =   495
  95.       ScaleWidth      =   570
  96.       TabIndex        =   17
  97.       Top             =   4819
  98.       Width           =   570
  99.    End
  100.    Begin PictureBox Picture3 
  101.       BackColor       =   &H00C0C0C0&
  102.       BorderStyle     =   0  'None
  103.       Height          =   495
  104.       Left            =   2910
  105.       Picture         =   KY1TNTS.FRX:120C
  106.       ScaleHeight     =   495
  107.       ScaleWidth      =   570
  108.       TabIndex        =   16
  109.       Top             =   4819
  110.       Width           =   570
  111.    End
  112.    Begin PictureBox Picture2 
  113.       BackColor       =   &H00C0C0C0&
  114.       BorderStyle     =   0  'None
  115.       Height          =   495
  116.       Left            =   1035
  117.       Picture         =   KY1TNTS.FRX:150E
  118.       ScaleHeight     =   495
  119.       ScaleWidth      =   645
  120.       TabIndex        =   15
  121.       Top             =   4819
  122.       Width           =   645
  123.    End
  124.    Begin PictureBox Picture1 
  125.       BackColor       =   &H00C0C0C0&
  126.       BorderStyle     =   0  'None
  127.       Height          =   495
  128.       Left            =   7965
  129.       Picture         =   KY1TNTS.FRX:1810
  130.       ScaleHeight     =   495
  131.       ScaleWidth      =   615
  132.       TabIndex        =   14
  133.       Top             =   4819
  134.       Width           =   615
  135.    End
  136.    Begin SSPanel Panel3D9 
  137.       BackColor       =   &H00C0C0C0&
  138.       BevelOuter      =   0  'None
  139.       BorderWidth     =   1
  140.       Caption         =   "Stop Program"
  141.       Font3D          =   0  'None
  142.       ForeColor       =   &H00000000&
  143.       Height          =   570
  144.       Left            =   7740
  145.       TabIndex        =   13
  146.       Top             =   5386
  147.       Width           =   975
  148.    End
  149.    Begin SSPanel Panel3D8 
  150.       BackColor       =   &H00C0C0C0&
  151.       BevelOuter      =   0  'None
  152.       BorderWidth     =   1
  153.       Caption         =   "System Operator Commands"
  154.       Font3D          =   0  'None
  155.       ForeColor       =   &H00000000&
  156.       Height          =   495
  157.       Left            =   5715
  158.       TabIndex        =   12
  159.       Top             =   5386
  160.       Width           =   1830
  161.    End
  162.    Begin SSPanel Panel3D7 
  163.       BackColor       =   &H00C0C0C0&
  164.       BevelOuter      =   0  'None
  165.       BorderWidth     =   1
  166.       Caption         =   "Begin Telegram"
  167.       Font3D          =   0  'None
  168.       ForeColor       =   &H00000000&
  169.       Height          =   495
  170.       Left            =   2520
  171.       TabIndex        =   11
  172.       Top             =   5386
  173.       Width           =   1245
  174.    End
  175.    Begin SSPanel Panel3D6 
  176.       BackColor       =   &H00C0C0C0&
  177.       BevelOuter      =   0  'None
  178.       BorderWidth     =   1
  179.       Caption         =   "Get More Information"
  180.       Font3D          =   0  'None
  181.       ForeColor       =   &H00000000&
  182.       Height          =   615
  183.       Left            =   630
  184.       TabIndex        =   10
  185.       Top             =   5386
  186.       Width           =   1410
  187.    End
  188.    Begin SSCommand Command3D4 
  189.       Caption         =   "Stop"
  190.       Font3D          =   0  'None
  191.       ForeColor       =   &H00000000&
  192.       Height          =   1000
  193.       Left            =   7695
  194.       Picture         =   KY1TNTS.FRX:1B12
  195.       TabIndex        =   7
  196.       Top             =   3685
  197.       Width           =   1000
  198.    End
  199.    Begin SSCommand Command3D3 
  200.       Caption         =   "SYSOP"
  201.       Font3D          =   0  'None
  202.       ForeColor       =   &H00000000&
  203.       Height          =   1000
  204.       Left            =   6060
  205.       Picture         =   KY1TNTS.FRX:1E14
  206.       TabIndex        =   6
  207.       Top             =   3685
  208.       Width           =   1000
  209.    End
  210.    Begin SSCommand Command3D2 
  211.       Caption         =   "Telegram"
  212.       Font3D          =   0  'None
  213.       ForeColor       =   &H00000000&
  214.       Height          =   1000
  215.       Left            =   2625
  216.       Picture         =   KY1TNTS.FRX:2116
  217.       TabIndex        =   5
  218.       Top             =   3685
  219.       Width           =   1000
  220.    End
  221.    Begin SSCommand Command3D1 
  222.       Caption         =   "Info/Help"
  223.       Font3D          =   0  'None
  224.       ForeColor       =   &H00000000&
  225.       Height          =   1000
  226.       Left            =   780
  227.       Picture         =   KY1TNTS.FRX:2418
  228.       TabIndex        =   4
  229.       Top             =   3685
  230.       Width           =   1000
  231.    End
  232.    Begin SSPanel Panel3D4 
  233.       BackColor       =   &H000000FF&
  234.       BorderWidth     =   1
  235.       Caption         =   "To your friends, neighbors and loved ones."
  236.       Font3D          =   0  'None
  237.       ForeColor       =   &H00FFFFFF&
  238.       Height          =   495
  239.       Left            =   2925
  240.       TabIndex        =   3
  241.       Top             =   3000
  242.       Width           =   3975
  243.    End
  244.    Begin SSPanel Panel3D3 
  245.       BackColor       =   &H0080FFFF&
  246.       BevelOuter      =   1  'Inset
  247.       BorderWidth     =   1
  248.       Caption         =   "FREE TELEGRAMS!"
  249.       Font3D          =   0  'None
  250.       FontBold        =   -1  'True
  251.       FontItalic      =   0   'False
  252.       FontName        =   "MS Sans Serif"
  253.       FontSize        =   13.5
  254.       FontStrikethru  =   0   'False
  255.       FontUnderline   =   0   'False
  256.       ForeColor       =   &H00C00000&
  257.       Height          =   720
  258.       Left            =   3690
  259.       TabIndex        =   2
  260.       Top             =   1950
  261.       Width           =   2235
  262.    End
  263.    Begin SSPanel Panel3D2 
  264.       BackColor       =   &H000000FF&
  265.       BorderWidth     =   1
  266.       Caption         =   "You can easily use this program to send"
  267.       Font3D          =   0  'None
  268.       ForeColor       =   &H00FFFFFF&
  269.       Height          =   345
  270.       Left            =   2640
  271.       TabIndex        =   1
  272.       Top             =   1065
  273.       Width           =   4425
  274.    End
  275.    Begin SSPanel Panel3D1 
  276.       BackColor       =   &H000000FF&
  277.       BorderWidth     =   1
  278.       Caption         =   "Welcome to the Amateur Radio Telegram Generation Program."
  279.       Font3D          =   0  'None
  280.       ForeColor       =   &H00FFFFFF&
  281.       Height          =   495
  282.       Left            =   1860
  283.       TabIndex        =   0
  284.       Top             =   210
  285.       Width           =   6210
  286.    End
  287.    Begin Line Line2 
  288.       BorderColor     =   &H00000000&
  289.       BorderWidth     =   5
  290.       X1              =   16.086
  291.       X2              =   16.086
  292.       Y1              =   12.25
  293.       Y2              =   0
  294.    End
  295.    Begin Line Line1 
  296.       BorderColor     =   &H00000000&
  297.       BorderWidth     =   5
  298.       X1              =   0.556
  299.       X2              =   0.556
  300.       Y1              =   0
  301.       Y2              =   12.144
  302.    End
  303. End
  304.  
  305. Sub Command3D1_Click ()
  306. ky1tnts.Hide
  307. info.Show
  308. End Sub
  309.  
  310. Sub Command3D2_Click ()
  311. voice = 2 'Radiogram form is for telegrams, not voicegrams
  312. ky1tnts.Hide
  313. radiogrm.Show
  314.  
  315. End Sub
  316.  
  317. Sub Command3D3_Click ()
  318.     q$ = InputBox$("Password, please?" + Chr$(13) + Chr$(10) + "Note that this software is NOT free.  It is in fact licensed to Peter V. who has paid the very small registration fee.  If you are NOT Peter V, then you have in fact stolen this software and are not eligible to use it. ")
  319.     If q$ = "kc1qf" Or q$ = "KC1QF" Then
  320.     ky1tnts.Hide
  321.     sysop.Show
  322.      Else MsgBox (" PASSWORD FAILURE!! To register this software, contact Fort Valley Electronics, 53 Broadview St. Newington CT 06111.  Telephone: 203 666 4399")
  323.      End If
  324.    
  325. End Sub
  326.  
  327. Sub Command3D4_Click ()
  328.     q$ = InputBox$("Password, please?" + Chr$(13) + Chr$(10) + "Note that this software is NOT free.  It is in fact licensed to Peter V. who has paid the very small registration fee.  If you are NOT Peter V, then you have in fact stolen this software and are not eligible to use it.")
  329.     If q$ = "kc1qf" Or q$ = "KC1QF" Then
  330.     End
  331.     
  332.     Else MsgBox (" PASSWORD FAILURE!! To register this software, contact Fort Valley Electronics, 53 Broadview St. Newington CT 06111.  Telephone: 203 666 4399")
  333.     End If
  334.     
  335. End Sub
  336.  
  337. Sub Command3D5_Click ()
  338. voice = 1 'Radiogram form is for voicegrams, not telegrams
  339. ky1tnts.Hide
  340. radiogrm.Show
  341.  
  342. End Sub
  343.  
  344.  Sub drawframeon (topleftcontrol As Control, lowestrightcontrol As Control, style As String, framewidth)
  345. 'remember the drawwidth, fillstyle, and scalemode so we can restore them at the end
  346. dw = drawwidth
  347. fs = fillstyle
  348. sm = scalemode
  349. drawwidth = 1
  350. fillstyle = 1
  351. scalemode = 1
  352. st$ = LCase$(Left$(style$, 1))
  353. lft = topleftcontrol.Left
  354. toplft = topleftcontrol.Top
  355. hite = topleftcontrol.Height
  356. rite = lowestrightcontrol.Left + lowestrightcontrol.Width
  357. ritebotm = lowestrightcontrol.Top + lowestrightcontrol.Height
  358. 'use tallest control as y
  359. If ritebotm > hite Then hite = ritebotm
  360. 'draw a thick box
  361. Line (lft - framewidth, toplft - framewidth)-(rite + framewidth, ritebotm + framewidth), QBColor(7), BF
  362. 'draw hightlight and shadow lines
  363. lt = 15: rb = 8
  364. If st$ = "i" Then lt = 8: rb = 15
  365. Line (lft - framewidth, toplft - framewidth)-(rite + framewidth, toplft - framewidth), QBColor(lt)
  366. Line (lft - framewidth, toplft - framewidth)-(lft - framewidth, hite + framewidth), QBColor(lt)
  367. Line (rite + framewidth, toplft - framewidth)-(rite + framewidth, ritebotm + framewidth), QBColor(rb)
  368. Line (rite + framewidth, ritebotm + framewidth)-(lft - framewidth, hite + framewidth), QBColor(rb)
  369. If st$ <> "i" Then
  370. Line (lft - framewidth - 25, toplft - framewidth - 25)-(rite + framewidth + 10, ritebotm + framewidth + 10), QBColor(0), B
  371. End If
  372. drawwidth = dw
  373. fillstyle = fs
  374. scalemode = sm
  375.  
  376. End Sub
  377.  
  378. Sub Form_Activate ()
  379.  
  380. m = Month(Now): Y = Year(Now): d = Day(Now) 'set up radiogram preamble's "date"
  381. ds# = DateSerial(Y, m, d)
  382. dt1$ = Format$(ds#, "mmm")
  383. dt2$ = Format$(ds#, "d")
  384. todaysdate$ = dt1$ + " " + dt2$
  385.  
  386.  
  387. Select Case enablevoice 'Voicegrams enabled?  If so, enable related controls
  388.   Case 6
  389.     command3d5.Enabled = True
  390.     picture7.Enabled = True
  391.     panel3d5.Enabled = True
  392.   Case 7
  393.     command3d5.Enabled = False
  394.     picture7.Enabled = False
  395.     panel3d5.Enabled = False
  396.  
  397.         End Select
  398.  
  399. End Sub
  400.  
  401. Sub Form_KeyDown (keycode As Integer, Shift As Integer)
  402.     If keycode = 17 Then
  403.     Beep
  404.     keycode = 0
  405.     End If
  406.     
  407.     
  408. End Sub
  409.  
  410. Sub Timer1_Timer ()
  411.     picture5.Visible = True  'blink lightning bolts
  412.     picture6.Visible = True
  413.     picture6.Visible = False
  414.     picture5.Visible = False
  415.    ' ky1tnts.Caption = " "
  416.     panel3D3.Visible = False
  417.     panel3D3.Visible = True
  418.  
  419.  
  420. End Sub
  421.  
  422.